<%

Function usuario_tempo_login(id)

		DIM data
				
		data = get_data()
		
		usuario_tempo_login_data id, data

End Function

Function usuario_tempo_login_data(id, data)

		DIM condicao , tempo, max
		
		condicao = "id="&id
		
		sql_edicao conexao_geral, "usuarios", "ultimo_login", data, condicao 
		
		tempo = usuario_tempo_calcular(id, configuracoes_get("intervalo_tempo_online_dias"))
		
		sql_edicao conexao_geral, "usuarios", "tempo_atual", tempo, condicao 
		
		max = usuario_get (id, "tempo_maximo")
		
		If max<tempo then
			sql_edicao conexao_geral, "usuarios", "tempo_maximo", tempo, condicao 
		End If

End Function


Function usuario_tempo_calcular(id, tempo)

	DIM total, logs(10000,2), i, login, tempo_total, data1, data2, diff
	
	login = false

	total = usuario_carregar_logs(id, tempo, logs)	

	tempo_total=0
	
	for i=total-1 to 0 step -1
	
		If login = false AND logs(i,1) = "D" then 'Log-Out
			login = true 
			data1 = logs(i,0)
		End If
	
		If login = true AND logs(i,1) = "E" then 'Log-In
			login = false 
			data2 = logs(i,0)
			tempo_total = tempo_total + diferenca_datas(data2, data1, "n")
		End If
	
	next
	
	usuario_tempo_calcular = tempo_total

End Function
%>